R - Tuncate Values in Vector to Range

This short piece of R code tructaes the values of a vector to a specified range.

range_trunc <- function(range, vec) {
  vt <- vector()

  for (i in 1:length(vec)) {
    vt[i] <- max(range[1], min(range[2], vec[i]))
  }

  return(vt)
}

Example usage:

x <- c(-1, 0, 3, 6, 190, 180, 170, 200, 150)
y <- range_trunc(c(0, 180), x)
show(x)
show(y)

2021-05-04 22:07

ildefons.deSubtitles Suck

R - Tuncate Values in Vector to Range